home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / Recent1 / MS2LW.lha / MovieLight_eng < prev    next >
Text File  |  1997-02-20  |  2KB  |  125 lines
  1. /* LW utiliza las escenas de MovieShop como sequencias. */
  2. /* Al mismo tiempo, el render de LW es capturado por MovieShop. */
  3. /* Este script genera las imagenes temporales en "Ram:t/" */
  4. /* Cada escena de MovieShop puede consumir 1.3 MB de preciada RAM. */
  5. /* Puedes cambiar el camino de estos ficheros temporales aqui. */
  6. /* Edita este script y reemplaza "ram:t" por "dh1:temporal" (Por ej.) */
  7. /* Se produciran cambios en las lineas 32, 59, 64, 73, 89, 111 y 113. */
  8.  
  9. SAY '   This script need that LightWave and MovieShop are now loaded'
  10. SAY '   The scenes that you want use from LW, have to be as sequences and'
  11. SAY '   found them in the scene window.'
  12. SAY ''
  13. SAY ''
  14. SAY ' MovieShop and LightWave are running now?''  Y/N'
  15. pull opt
  16. if opt = N then exit
  17.  
  18. OPTIONS RESULTS
  19.  
  20. ADDRESS MOVIESHOP
  21.  
  22. EXPORTPICTYPE FIELDS
  23. EXPORTMETHOD RAWJPEG
  24. EXPORTEXTENSION '.'
  25.  
  26. GOTOSCENE NUMBER 0
  27.  
  28. do g = 1 to 999
  29.   TS = g
  30.   BLOCK MARK
  31.   BLOCK COPY
  32.   EXPORTBLOCK 'ram:t/MSTemp'g
  33.   GOTOSCENE NEXT
  34.   options failat 10
  35.    if (RC=10) then g = 999
  36. end g
  37.  
  38. do f = 1 to 18
  39.   SAY ''
  40. end f
  41.  
  42. SAY '   Checking scenes...'
  43. SAY '   You have' TS 'MovieShop scenes.'
  44. SAY ''
  45. SAY ''
  46. SAY '   Now, you've to load the sequences in LightWave.'
  47. SAY '   When you has made it, back here and press ENTER.'
  48. pull @
  49. SAY ''
  50. SAY ''
  51. SAY ''
  52.  
  53. ADDRESS MOVIESHOP
  54.  
  55. NEWSCENE
  56.  
  57. IMPORTPICTYPE FRAMES
  58.  
  59. IMPORTFRAME 'ram:t/MSTemp1.'
  60.  
  61. EXPORTPICTYPE FRAMES
  62. EXPORTEXTENSION '.%03ld'
  63.  
  64. ADDRESS COMMAND 'DELETE >nil: ram:t/MS#?'
  65.  
  66. ADDRESS 'LightWaveARexx.port'
  67.  
  68. SAY 'How many frames you want render?'
  69. pull FR
  70. say 'What is the first frame?'
  71. pull SF
  72.  
  73. 'SaveImages ram:t/VMTransfer.'
  74.  
  75. EF = SF + FR
  76. EF = EF - 1
  77. X = 0
  78.  
  79. do i = SF to EF
  80.     TG = EF - i
  81.  
  82.     ADDRESS MOVIESHOP
  83.     GOTOSCENE NUMBER 0
  84.  
  85.       do h = 1 to TS
  86.           GOTOFRAME NUMBER X
  87.           BLOCK MARK
  88.           BLOCK COPY
  89.           EXPORTBLOCK 'ram:t/MSTemp'h
  90.           GOTOSCENE NEXT
  91.       end h
  92.  
  93.     X = X + 1
  94.  
  95.     ADDRESS 'LightWaveARexx.port'
  96.     SAY 'FRAME RENDERIZED' i 'TO' time()',' TG 'FRAMES TO FINISH.'
  97.    'FIRSTFRAME' i
  98.    'LASTFRAME' i
  99.    'FRAMESTEP' 1
  100.  
  101.    'Render 1'
  102.  
  103.     c = right(i, 3, '0')
  104.  
  105.     d = 'VMTRANSFER.'c
  106.  
  107.     ADDRESS MOVIESHOP
  108.     GOTOSCENE NUMBER TS
  109.     GOTOFRAME LAST
  110.     SAY 'IMPORTING FRAME' i 'TO MOVIESHOP'
  111.     IMPORTFRAME 'ram:t/'d
  112.  
  113.     ADDRESS COMMAND 'DELETE >nil: ram:t/#?'
  114. end i
  115.  
  116. ADDRESS MOVIESHOP 
  117. GOTOSCENE NUMBER TS
  118. GOTOFRAME LAST
  119. DELETEACTIVEFRAME
  120.  
  121. Name = 'LWAnim'time()
  122. RENAMESCENE Name
  123.  
  124. SAY 'TOTAL FRAMES =' FR '. PROCESS COMPLETE TO' time()
  125.